home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 100 / 100.d81 / ls contest (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 5 dimw$(200)
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 15 sys57812"input any ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  4. 16 sys52736,"questions",dv
  5. 18 sp$="                                           "
  6. 20 poke53281,0:poke53280,0:print"[147]"
  7. 30 print"[129]   [204][207][193][196][211][212][193][210]'[211] 100[212][200] [201][211][211][213][197] [195][197][204][197][194][210][193][212][201][207][206]"
  8. 40 print"               [212][210][201][214][201][193] [195][207][206][212][197][211][212]"
  9. 50 print"[159] [211]et top of form and press [210][197][212][213][210][206][159] when
  10. 60 [153]" read to print.  right$t will use two sheets
  11. 70 print" of paper and will wait between sheets.
  12. 80 [151]780,4:[151]144,0:[158]65457:d[178]st:[158]65454:d[178]d[176]st
  13. 90 [139]d[167][151]214,20:[153]:[153]"sys (NULL)urn your printer on.":[137]80
  14. 95 [151]198,0
  15. 96 [161]a$:[139]a$[179][177][199](13)[167]96
  16. 100 [151]781,21:[158]59903
  17. 110 [159]4,4,7
  18. 120 [129]i[178]0[164]59:[152]4,"  "w$(i)[200](sp$,40[171][195](w$(i)))w$(60[170]i)
  19. 130 [130]:[129]i[178]0[164]12:[152]4:[130]
  20. 140 [151]214,12:[153]:[153]" open(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)open to print the second page.
  21. 150 geta$:ifa$<>chr$(13)then150
  22. 160 fori=120to154:print#4,"  "w$(i)left$(sp$,40-len(w$(i)))w$(35+i)
  23. 170 next:fori=0to23:print#4:next
  24. 180 close4
  25. 190 poke214,12:print:print" [208]ress [210][197][212][213][210][206][159] to print another entry.  "
  26. 200 print" [193]ny other key exits to [154][204][207][193][196][211][212][193][210][159].
  27. 205 [151]198,0
  28. 210 [161]a$:[139]a$[178]""[167]210
  29. 220 [139]a$[178][199](13)[167]20
  30. 230 [129]i[178]8[164]9:[159]15,i,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  31. 240 [139]er[178]63[167]dv[178]i:i[178]9:[130]:[137]260
  32. 250 [130]:[153]"load":[128]
  33. 260 [153]"loadstopload"[199](34)"hello connect"[199](34)","dv
  34. 270 [153]"run"
  35. 280 [151]631,13:[151]632,13:[151]198,2:[128]
  36. 10000 [159]15,8,15,"s0:ls contest":[160]15:[148]"ls contest",8:[128]
  37.